home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_1 / test.pl < prev    next >
Perl Script  |  1996-02-29  |  590b  |  41 lines
  1. #!./perl
  2. #req_more_info.pl
  3.  
  4. # get args
  5. $name = @ARGV[1];
  6. #while (@ARGV) {
  7. #$ARGV=shift;
  8. #$orig = $ARGV; 
  9. #$name = $orig;
  10. #$name =~ s/-.*//g; 
  11. #$param = $orig; 
  12. #$param =~ s/.*-//g; 
  13. #}
  14.  
  15. $~ = HTMLHEADER;
  16. write STDOUT;
  17.  
  18.  
  19. print "<h2> $name @ARGV</h2>";
  20. $~ = HTMLFOOTER;
  21. write STDOUT;
  22. ##############################################################################
  23. format HTMLHEADER =
  24. Content-type: text/html
  25.  
  26.  
  27.  
  28. <html>
  29. <head>
  30. <title>CDware Test</title>
  31. </head>
  32. .
  33. ##############################################################################
  34. format HTMLFOOTER =
  35.  
  36.         </BODY>
  37.  
  38.  
  39.     </HTML>
  40. .
  41.